home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / Ex_Pi.dxr / 00001.ls next >
Encoding:
Text File  |  1998-07-22  |  553 b   |  23 lines
  1. on startMovie
  2.   global a, b, c
  3.   cursor(-1)
  4.   set the randomSeed to the ticks
  5.   set the keyDownScript to "printPass"
  6.   put " " into field "Answer"
  7. end
  8.  
  9. on stopMovie
  10.   set the cursor of sprite 20 to 0
  11.   set the cursor of sprite 21 to 0
  12.   put 45 into field "Answer"
  13. end
  14.  
  15. on numsOnly
  16.   if (the key = RETURN) or (the key = ENTER) or (the keyCode = 76) then
  17.     exit
  18.   end if
  19.   if ((the key < "0") or (the key > "9")) and (the key <> "-") and (the key <> ".") and (the key <> numToChar(9)) and (the key <> numToChar(8)) then
  20.     dontPassEvent()
  21.   end if
  22. end
  23.